home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / King Ludvig / King Ludvig next >
Text File  |  1990-04-20  |  2KB  |  44 lines
  1. {King Ludvig - The Mad Robot
  2. Matthew Sakai,4/20/90 (A totally new concept)}
  3.  
  4. begin: x 150 > ri le ife
  5. ri: drop
  6. rig: x 280 > slowr if 5 speedx' store collision help if rig jump
  7. le: drop
  8. lef: x 20 < slowl if -5 speedx' store collision help if lef jump
  9. slowr: x 288 > stopr if 1 speedx' store collision help if slowr jump
  10. slowl: x 12 < stopl if -1 speedx' store collision help if slowl jump
  11. stopr: 0 speedx' store -10 speedy' store 0 aim' store
  12. up: y 31 < upleft if radar mnx if y 31 < upleft if collision kilu if up jump
  13. left: x 31 < leftdown if radar mpy if x 31 < leftdown if collision kill if left jump
  14. stopl: 0 speedx' store 10 speedy' store 180 aim' store
  15. down: y 270 > downright if radar mpx if y 270 > downright if collision kild if down jump
  16. right: x 270 > rightup if radar mny if x 270 > rightup if collision kilr if right jump
  17. upleft: 0 speedy' store 270 aim' store -10 speedx' store left jump
  18. leftdown: 0 speedx' store 180 aim' store 10 speedy' store down jump
  19. downright: 0 speedy' store 90 aim' store 10 speedx' store right jump
  20. rightup: 0 speedx' store 0 aim' store -10 speedy' store up jump
  21. kill: x 230 < nukl kil ife
  22. kilu: y 230 < nuku kiu ife
  23. kilr: x 70 > nukr kir ife
  24. kild: y 70 > nukd kid ife
  25. kil: range killl if 225 aim' store range killl if 180 aim' store range killl if collision help if return
  26. kiu: range killl if 315 aim' store range killl if 270 aim' store range killl if collision help if return
  27. kir: range killl if 45 aim' store range killl if 0 aim' store range killl if collision help if return
  28. kid: range killl if 135 aim' store range killl if 90 aim' store range killl if collision help if return
  29. killl: range 30 > junk if collision not junk if energy fire' store drop collision ki if return
  30. ki: drop nop nop nop nop nop nop nop 50 fire' store collision ki if drop return
  31. nukl: 6 speedx' store energy nuke' store 90 aim' store
  32. nul: x 270 > upleft if radar mpy if collision kilr if nul jump
  33. nuku: 6 speedy' store energy nuke' store 180 aim' store
  34. nuu: y 270 > rightup if radar mnx if collision kild if nuu jump
  35. nukr: -6 speedx' store energy nuke' store 270 aim' store
  36. nur: x 31 < downright if radar mnx if collision kill if nur jump
  37. nukd: -6 speedy' store energy nuke' store 0 aim' store
  38. nud: x 31 < leftdown if radar mpx if collision kilu if nud jump
  39. help: aim 60 + aim' store range killl if collision help if return
  40. junk: drop return
  41. mpx: 10 movex' store return
  42. mpy: 10 movey' store return
  43. mnx: -10 movex' store return
  44. mny: -10 movey' store return